5 REM NICHT GEEIGNET FUER SCHALTJAHRE
10 INPUT"DATUM FORMAT TTMMJJJJ ";D$
20 T=VAL(MID$(D$,1,2))
30 M=VAL(MID$(D$,3,2))
40 J=VAL(MID$(D$,5))
50 IF M<1 OR M>12 THEN RUN
60 IF T<1 OR T>31 THEN RUN
70 REM WELCHE TAGESNUMMER ?
80 IF M>2 THEN N=INT(30.6*(M+1))-63+T:GOTO 100
90 N=INT(30.6*(M+13))-428+T
100 PRINT"NUMMER"N
110 END